0 GOSUB60100:CLR:BK$="[164]"
5 DIM N(3),H(18),L(18),D(18):FORN=0TO16:READH(N),L(N),D(N):NEXT
10 POKE53280,6:POKE53281,3:A=54272:POKEA+24,15
15 N(1)=3:N(2)=5:N(3)=7:GOSUB300
20 PRINT"[212]HE OBJECT OF THIS GAME IS TO FORCE":PRINT
25 PRINT"ME TO TAKE THE LAST REMAINING":PRINT
30 PRINT"BLOCK.  [207]N A GIVEN TURN YOU MAY TAKE":PRINT
35 PRINT"AS MANY BLOCKS FROM ONE ROW [146] AS YOU ":PRINT
40 PRINT"WISH, BUT YOU MUST TAKE AT LEAST ONE.":PRINT
45 PRINT"[195]AN YOU FIGURE OUT THE TRICK?":PRINT
50 PRINT"[215]HEN YOU'RE READY, PRESS ANY KEY.":FORA=1TO1000:NEXT:POKE198,0
55 GETA$:IFA$=""THEN55
60 N(1)=3:N(2)=5:N(3)=7:GOSUB300
65 GOSUB300:PRINT"[217]OUR MOVE.  [215]HICH ROW?  [157]";:GOSUB60500:PRINTA$:I=VAL(A$)
66 IFI>3ORI<1THEN65
70 PRINT"[212]AKE HOW MANY?  [157]";:GOSUB60500:PRINTA$:J=VAL(A$):IFJ>N(I)THEN65
75 IFJ<1THEN65
76 PRINT"[193]RE YOU SURE ([217]/[206])"
80 GOSUB60500:AN$=A$
81 IFAN$="N"ORAN$="[206]"THEN65
82 IFAN$<>"Y"ANDAN$<>"[217]"THEN80
85 N(I)=N(I)-J
90 IF(N(1)<>0)OR(N(2)<>0)OR(N(3)<>0)THEN115
95 PRINT"[147]             [193][200][193]!  [199]OTCHA!"
100 GOSUB 350
105 PRINT"           [208]LAY [193]GAIN? ([217]/[206])"
106 GOSUB60500:AN$=A$:IFAN$="Y"ORAN$="[217]"THEN60
107 IFAN$<>"N"ANDAN$<>"[206]"THEN106
110 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
111 PRINT"[147]";:IFER<>63THENEND
112 LOAD"HELLO CONNECT",8
115 GOSUB300:PRINT"[205]Y MOVE ...":L=0:S=7:M=O:H=0
120 FORI=1TO3:IFN(I)<STHENS=N(I):L=I
125 NEXT
130 FORI=1TO3:IFN(I)>STHENS=N(I):H=I
135 NEXT:IFH=0THENH=3:M=2:GOTO155
140 T=N(1)+N(2)+N(3)-N(L)-N(H)
145 FORI=1TO3:IF(N(I)=T)AND(I<>H)AND(I<>L)THENM=I
150 NEXT
155 IFN(L)=1THEN185
160 IFN(L)=0THEN210
165 IFN(M)=N(H)THENN(L)=0:GOTO230
170 IFN(L)=N(M)THENN(H)=0:GOTO255
175 IF(N(L)=2)AND(N(M)=3)THENN(H)=1:GOTO230
180 N(L)=N(L)-1:GOTO230
185 IF(N(M)=1)AND(N(H)>1)THENN(H)=1:GOTO230
190 IFN(M)=N(H)THENN(L)=0:GOTO230
195 IF(N(M)=2)AND(N(H)>3)THENN(H)=3:GOTO230
200 IF(N(M)=3)AND(N(H)>=3)THENN(H)=2:GOTO230
205 N(M)=N(M)-1:GOTO230
210 IF(N(M)=0)AND(N(H)>1)THENN(H)=1:GOTO230
215 IFN(M)=1THENN(H)=0:GOTO255
220 IFN(M)<>N(H)THENN(H)=N(M):GOTO230
225 N(M)=N(M)-1:GOTO230
230 FORJ=1TO1000:NEXT
235 IFN(H)<>0THEN255
240 PRINT"[147][215]ELL, YOU DID IT!"
245 PRINT"[217]OU BEAT ME FAIR AND SQUARE!"
250 GOSUB400:GOTO105
255 FORJ=1TO1000:NEXT:GOTO65
300 PRINT"[144][147]             [208]ICK-[213]P [194]LOCKS"
301 PRINT"             [163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
305 FORI=1TO3:PRINTI".";
310 IFN(I)=0THEN325
315 FORK=1TON(I)
320 PRINT" [146]";:NEXT
325 PRINT
330 PRINT:NEXT:PRINT:PRINT
335 RETURN
350 POKEA+5,9:POKEA+6,0
355 FORN=6TO16:POKEA,L(N):POKEA+1,H(N):POKEA+4,17
360 FORT=1TOD(N):NEXTT
365 POKEA+4,16:FORT=1TO10:NEXT:NEXT
370 RETURN
400 POKEA+5,9:POKEA+6,0
405 FORN=0TO5:POKEA,L(N):POKEA+1,H(N):POKEA+4,33
410 FORT=1TOD(N):NEXTT
415 POKEA+4,32:FORT=1TO10:NEXT:NEXT
420 RETURN
450 DATA 16,195,64,21,31,64,25,30,64
455 DATA 33,135,128,25,30,64,33,135,128
460 DATA 16,195,256,16,195,192,16,195,64
465 DATA 16,195,256,19,239,192,18,209,64
470 DATA 18,209,128,16,195,128,16,195,128
475 DATA 15,210,128,16,195,256
60100 PN$="[208][201][195][203]-[213][208] [194][204][207][195][203][211]":AN$="[194][217]:  [210][207][199][197][210] [211]. [205][193][195][207][205][194][197][210]"
60110 BO=06:SC=00:CL=15:C1=06:C2=03:C3=06:C4=03:C5=08:C6=07:C7=08
60120 REM BO - BORDER COLOR
60121 REM SC - SCREEN COLOR
60122 REM CL - COLOR ON BORDER
60123 REM C1 - TOP BOX OUTSIDE COLOR
60124 REM C2 - TOP BOX INSIDE COLOR
60125 REM C3 - BOTTOM BOX OUTSIDE COLOR
60126 REM C4 - BOTTOM BOX INSIDE COLOR
60127 REM C5 - 'COPYRIGHT' COLOR
60128 REM C6 - 'PROGRAM NAME' COLOR
60129 REM C7 - 'AUTHORS NAME' COLOR
60130 POKE53280,BO:POKE53281,SC:PRINT"[147]";:GOTO60250
60140 POKE646,C1:PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60150 POKE646,C2:PRINT" [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]"
60170 POKE646,C1:PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
60180 POKE646,C6:PRINT""TAB(20-LEN(PN$)/2);PN$
60190 POKE646,C7:PRINT""TAB(20-LEN(AN$)/2);AN$
60200 POKE646,C5:PRINT""TAB(13)"[195][207][208][217][210][201][199][200][212] 1986"
60210 PRINTTAB(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
60220 POKE646,C3:PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60230 POKE646,C4:PRINT" [165]                                  [167]"
60240 POKE646,C3:PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
60245 POKE198,.:GOTO60360
60250 POKE646,CL
60255 PRINT" [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
60260 FORA=1TO3:GOSUB60470:NEXT
60270 GOSUB60470:PRINT"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
60280 FORA=1TO16:GOSUB60470:NEXT
60290 PRINT"[145][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
60300 FORA=1TO3:GOSUB60470:NEXT
60310 PRINT" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
60320 POKE53280,BO:POKE53281,SC:GOTO60140
60360 PRINT"";
60370 POKE646,C2:PRINT"[165][208]RESS THE [[211][208][193][195][197] [194][193][210]] TO CONTINUE.[167]"
60380 FORA=1TO100
60390 GETA$:IFA$=" "ORA$="[160]"THENRETURN
60400 NEXT
60410 PRINT"";
60420 PRINT"[165]                                  [167]"
60430 FORA=1TO100
60440 GETA$:IFA$=" "ORA$="[160]"THENRETURN
60450 NEXT
60460 GOTO60360
60470 PRINT" [161][146][161]":RETURN
60500 GETA$:IFA$=""THEN60500
60510 RETURN